home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD003b.dsk / KENO.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  92 lines
  1. 10 FLAG = 0
  2. 20  DIM J(100),K(100)
  3. 30  DIM SPOT(10)
  4. 40  DIM KENO(20)
  5. 50  DIM WIN(15)
  6. 60  DIM SCR(10)
  7. 70  DIM BET(10)
  8. 80  DIM NUM(200)
  9. 90  DIM MUL(10)
  10. 100  FOR A = 1 TO 10:SCR(A) = 100: NEXT A
  11. 110  HOME 
  12. 120  FOR A = 1 TO 9:J(A) = A *3 +4:K(A) = 1: NEXT A
  13. 130 J(10) = 33:K(10) = 1
  14. 140  FOR A = 0 TO 7
  15. 150  FOR B = 11 TO 20
  16. 160 J(A *10 +B) = (B -10) *3 +3
  17. 170 K(A *10 +B) = A *2 +3
  18. 180  NEXT B,A
  19. 190  FOR A = 1 TO 10:WIN(A) = 0: NEXT A
  20. 200  FOR A = 1 TO 80: HTAB J(A): VTAB K(A): PRINT A: NEXT A
  21. 210  VTAB 1: PRINT "K";: HTAB 39: PRINT "K"
  22. 220  VTAB 5: PRINT "E";: HTAB 39: PRINT "E"
  23. 230  VTAB 9: PRINT "N";: HTAB 39: PRINT "N"
  24. 240  VTAB 13: PRINT "O";: HTAB 39: PRINT "O"
  25. 250  VTAB 18
  26. 260  POKE 34,17
  27. 270  IF FLAG = 1  THEN 320
  28. 300  INPUT "HOW MANY PLAYERS ";PLR
  29. 310  IF PLR >10  OR PLR <1  THEN  GOTO 300
  30. 320  FOR A = 1 TO PLR
  31. 330  PRINT "PLAYER #";A;" ENTER BET ";: INPUT BET(A):SCR(A) = SCR(A) -BET(A)
  32. 340  PRINT "HOW MANY SPOTS PLAYER #";A;" ";: INPUT SPOT(A)
  33. 350  IF SPOT(A) <1  OR SPOT(A) >15  THEN 340
  34. 360  PRINT "ENTER NUMBERS:"
  35. 370  FOR B = (A -1) *30 +1 TO (A -1) *30 +SPOT(A)
  36. 380 C = B -(A -1) *30
  37. 390  PRINT C;") ";: INPUT NUM(B)
  38. 400  NEXT B,A
  39. 410  HOME 
  40. 420  POKE 34,0
  41. 430  FOR A = 1 TO 20
  42. 440 KENO(A) =  INT( RND(1) *80) +1
  43. 450  IF A = 1  THEN 490
  44. 460  FOR B = 1 TO A -1
  45. 470  IF KENO(A) = KENO(B)  THEN A = A -1
  46. 480  NEXT B
  47. 490  NEXT A
  48. 500  FOR A = 1 TO 20
  49. 510  FOR B = 1 TO 10  STEP .5
  50. 520  HTAB J(KENO(A))
  51. 530  VTAB K(KENO(A))
  52. 540  NORMAL 
  53. 550 C =  INT(B): IF B = C  THEN  INVERSE 
  54. 560  PRINT KENO(A)
  55. 570  NEXT B
  56. 580  NEXT A
  57. 590  VTAB 18
  58. 600  NORMAL 
  59. 610  REM  SCORE
  60. 620  FOR A = 1 TO PLR
  61. 630  FOR B = (A -1) *30 +1 TO (A -1) *30 +SPOT(A)
  62. 640  FOR C = 1 TO 20
  63. 650  IF KENO(C) = NUM(B)  THEN WIN(A) = WIN(A) +1
  64. 660  NEXT C,B,A
  65. 670  FOR A = 1 TO PLR
  66. 680  FOR B = 1 TO SPOT(A)
  67. 690  IF B = 1  THEN C = 1
  68. 700  IF B = 2  THEN C = 2
  69. 710  IF B = 5  THEN C = 3
  70. 720  IF B = 7  THEN C = 4
  71. 730  IF B = 8  THEN C = 5
  72. 740  IF B = 11  THEN C = 6
  73. 750  FOR D = C TO B
  74. 760  READ E
  75. 770  IF WIN(A) = D  AND SPOT(A) = B  THEN M = E
  76. 780  NEXT D,B
  77. 790 WIN(A) = BET(A) *M
  78. 800 SCR(A) = SCR(A) +WIN(A)
  79. 810 M = 0: RESTORE : NEXT A
  80. 820  VTAB 20
  81. 830  INPUT "HIT RETURN FOR SCORING";A$
  82. 840  HOME 
  83. 850  FOR A = 1 TO PLR
  84. 860  HTAB 16: PRINT "PLAYER #";A
  85. 870  PRINT "WINNINGS: ";WIN(A);" BET: ";BET(A);" TOTAL: ";SCR(A)
  86. 880  PRINT 
  87. 890  NEXT A
  88. 900  INPUT "HIT RETURN FOR MORE!";A$
  89. 910 FLAG = 1
  90. 920  HOME : GOTO 190
  91. 930  DATA  3,12,1,42,1,4,113,1,9,820,1,3,90,1800,1,20,410,8100,9,90,1650,18000,3,45,335,4700,18500,2,20,142,1000,4500,19000,10,75,380,2000,12500,19500
  92. 940  DATA  6,28,200,850,2400,13000,25000,2,16,78,700,3600,9000,25000,25000,3,8,32,300,800,2500,12000,25000,25000,2,8,21,75,240,2400,8000,25000,25000,25000